home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen… 1994 February Supplement / ARPL-Feb-94-Supplement-PowerPC.iso / 3rd Party PowerPC Demo Apps / FrameMaker / FrameMaker4 for Power Macintosh / FrameMaker4 for Power Macintosh.rsrc / PREC_103 < prev    next >
Encoding:
Text File  |  1994-01-28  |  22.6 KB  |  307 lines
  1. % Frame PostScript Prolog for use with Macintosh Frame Products 4.2
  2. % Copyright (c) 1986-94 Frame Technology Corp.  All rights reserved.
  3. %%BeginProcSet: "FrameMacDict" 42 5
  4. userdict/FrameMacDict 200 dict put FrameMacDict begin systemdict/setpacking
  5. known{/fMSP currentpacking def true setpacking}if[/fM1/fM18/fM2/fM3/fM4/fM5/fM6
  6. /fM8/fM9/fMBC/fMBM/fMC/fMCD/fMCG/fMCK/fMCM/fMCl/fMCO/fMFl/fMGC/fMGL/fMGM/fMIx
  7. /fMJB/fMJC/fMJG/fMJK/fMJM/fMJR/fMJY/fMK/fML1/fMM/fMN/fMNC/fMNg/fMOx/fMPC/fMPH
  8. /fMPt/fMRC/fMS/fMSJ/fMUC/fMUM/fMUY/fMY/fMat/fMa2/fMi/fMk/fms/fmBS/fMdp/freq
  9. /sangle/sflipx/sflipy/pflipx/pflipy/xx/yy/xindex/yindex/fM1B/fM0B]{0 def}forall
  10. /fML1/languagelevel where{pop languagelevel}{1}ifelse 2 lt def/fMCl fML1{
  11. /statusdict where{pop statusdict/processcolors known{statusdict/processcolors
  12. get exec 1 gt}{F}ifelse}{F}ifelse}{T}ifelse def/FmBD{bind def}bind def/fmPU{
  13. userdict 3 1 roll bind put}bind def/T true def/F false def userdict
  14. /fMSuccessfull F put userdict/fM7 known not{userdict/fM7 0 put}if/fmXD{exch def
  15. }FmBD/FmG/gsave load def/FmR/grestore load def/RealGrestoreall/grestoreall load
  16. def/RealSave/save load def/RealSetgray/setgray load def/RealSetrgbcolor
  17. /setrgbcolor load def/RealSethsbcolor/sethsbcolor load def/RealFill/fill load
  18. def/RealEofill/eofill load def/RealStroke/stroke load def/RealImagemask
  19. /imagemask load def/RealImage/image load def/RealShow/show load def/RealAshow
  20. /ashow load def/RealWidthshow/widthshow load def/RealAwidthshow/awidthshow load
  21. def/Realkshow/kshow load def/fMat matrix def/fMa2 matrix def/fmSM{fMat
  22. currentmatrix pop}FmBD/fmRM{fMat setmatrix}FmBD/FmRF{currentpoint 2 copy
  23. translate 4 2 roll{-1 1 scale}if rotate neg exch neg exch translate}FmBD/fmax{2
  24. copy lt{exch}if pop}FmBD/fmin{2 copy gt{exch}if pop}FmBD systemdict/pdfmark
  25. known{/FmPD/pdfmark load def/FmPT/show load def}{/FmPD/cleartomark load def
  26. /FmPT/pop load def}ifelse/FmDC{transform fMat defaultmatrix itransform cvi exch
  27. cvi exch}FmBD/fmgS 32 array def/fMgt 0 def/fMtp 0 def/fmSG{fmgS fMgt get dup
  28. null eq{pop fmgS fMgt 10 dict dup 4 1 roll put}if 3 1 roll put}FmBD/fmGG{fMgt
  29. -1 -1{fmgS exch get dup null ne{2 copy exch known{2 copy exch get/_notdef ne{
  30. exch get dup exit}if}if}if pop}for pop}FmBD/gsave{FrameMacDict begin FmG/fMgt
  31. fMgt 1 add def fmgS fMgt get dup null eq{pop}{dup dup{pop/_notdef put dup}
  32. forall pop pop}ifelse end}fmPU/grestore{FrameMacDict begin fMgt fMtp gt{/fMgt
  33. fMgt 1 sub def}if FmR null fmCN end}fmPU/grestoreall{FrameMacDict begin/fMgt
  34. fMtp def RealGrestoreall null fmCN end}fmPU/save{FrameMacDict/RealSave get exec
  35. FrameMacDict begin/fMgt fMgt 1 add def fmgS fMgt get dup null eq{pop}{dup dup{
  36. pop/_notdef put dup}forall pop pop}ifelse/fMtp fMgt def end}fmPU userdict
  37. /FrameNullDevice F put/fMCC null fmSG/fMOP F fmSG/fMKO F fmSG/fmRY{1 exch sub 3
  38. 1 roll 1 exch sub 3 1 roll 1 exch sub 3 1 roll 3 copy 2 copy le{pop}{exch pop}
  39. ifelse 2 copy le{pop}{exch pop}ifelse dup dup dup 6 1 roll 4 1 roll 7 1 roll
  40. sub 6 1 roll sub 5 1 roll sub 4 1 roll}fmSG/fmkn{2 copy known{get T}{pop pop
  41. false}ifelse}FmBD/fmfp{exch currentfont dup/FontMatrix get exch/FontInfo fmkn{T
  42. }{currentfont/df fmkn{dup/FontInfo fmkn{3 1 roll/FontMatrix get mtx
  43. concatmatrix exch T}{pop pop pop F}ifelse}{pop pop F}ifelse}ifelse{3 -1 roll
  44. fmkn{exch 0 3 1 roll dtransform neg exch pop exch pop}{pop exec}ifelse}{exec}
  45. ifelse}FmBD/fmdl{3 index 16 and 0 ne{FmG currentlinewidth 2. div dup rmoveto
  46. currentpoint newpath moveto 2 index 0 rlineto stroke FmR}if 3 index 24 and 0 ne
  47. {FmG currentrgbcolor dup 4 1 roll eq 3 1 roll eq and{1 currentgray sub setgray}
  48. {1 setgray}ifelse 2 index 0 rlineto stroke FmR FmG 2 index 0 rlineto strokepath
  49. .24 setlinewidth stroke FmR}{2 index 0 rlineto stroke 0 0 moveto}ifelse}FmBD
  50. /FmUl{FmG/fM2 fmXD currentpoint/UnderlineThickness{fM2 15 div}fmfp abs dup
  51. setlinewidth/fM1 fmXD 4 index 1 and 0 ne{newpath 2 copy moveto 0
  52. /UnderlinePosition{fM2 10 div neg}fmfp neg rmoveto fmdl}if 4 index 2 and 0 ne{
  53. newpath 2 copy moveto 0/XHeight{FmG newpath 0 0 moveto(x)F charpath flattenpath
  54. pathbbox 4 -1 roll pop pop pop FmR dup 0 eq{pop fM2 2. mul 3. div neg}if}fmfp
  55. 2. div rmoveto fmdl}if 4 index 4 and 0 ne{newpath 2 copy moveto 0/CapHeight{FmG
  56. newpath 0 0 moveto(H)F charpath flattenpath pathbbox 4 -1 roll pop pop pop FmR
  57. dup 0 eq{pop fM2 3. mul 4. div neg}if}fmfp fM1 sub rmoveto fmdl}if pop pop pop
  58. pop pop FmR}FmBD/FmTx{/fM3 fmXD/fM2 fmXD/fM1 fmXD 0 32 fM1 fM3 stringwidth pop
  59. fM2 sub fM3 length div sub 0 fM3 awidthshow}FmBD/fMN 0 def/fMC 1 def/fMM 2 def
  60. /fMY 3 def/fMK 4 def/fMS 5 def/fMNg 0 currenttransfer exec .5 gt def/fMCM fMN
  61. def/fMJK 0 def/fMJY 0 def/fMJM 0 def/fMJC 0 def/fMJR 1 def/fMJG 1 def/fMJB 1
  62. def/fMCG 1 def/fMPt null def/fMCK[0 0 0 1 0 0 0]def/fmCH{fML1{14 dict dup begin
  63. fMCl{/HalftoneType 2 def currentcolorscreen[/GraySpotFunction/GrayAngle
  64. /GrayFrequency/BlueSpotFunction/BlueAngle/BlueFrequency/GreenSpotFunction
  65. /GreenAngle/GreenFrequency/RedSpotFunction/RedAngle/RedFrequency]{exch def}
  66. forall}{/HalftoneType 1 def currentscreen[/SpotFunction/Angle/Frequency]{exch
  67. def}forall}ifelse statusdict/checkscreen known{statusdict/accuratescreens get
  68. exec}{F}ifelse/AccurateScreens exch def end}{currenthalftone}ifelse}FmBD/fmSH{
  69. fML1{begin statusdict/checkscreen known{currentdict/AccurateScreens known{
  70. AccurateScreens}{F}ifelse statusdict/setaccuratescreens get exec}if
  71. HalftoneType 1 eq{Frequency Angle currentdict/SpotFunction get setscreen}{
  72. HalftoneType 2 eq{fMCl{RedFrequency RedAngle currentdict/RedSpotFunction get
  73. GreenFrequency GreenAngle currentdict/GreenSpotFunction get BlueFrequency
  74. BlueAngle currentdict/BlueSpotFunction get GrayFrequency GrayAngle currentdict
  75. /GraySpotFunction get setcolorscreen}{GrayFrequency GrayAngle currentdict
  76. /GraySpotFunction get setscreen}ifelse}if}ifelse end}{sethalftone}ifelse}FmBD
  77. /FmCS{14 dict begin/HalftoneType 2 def/AccurateScreens exch def
  78. /GraySpotFunction exch def/GrayAngle exch def/GrayFrequency exch def
  79. /BlueSpotFunction exch def/BlueAngle exch def/BlueFrequency exch def
  80. /GreenSpotFunction exch def/GreenAngle exch def/GreenFrequency exch def
  81. /RedSpotFunction exch def/RedAngle exch def/RedFrequency exch def currentdict
  82. dup end/fMPH exch def fmSH}FmBD/FmSS{5 dict begin/HalftoneType 1 def
  83. /AccurateScreens exch def/SpotFunction exch def/Angle exch def/Frequency exch
  84. def currentdict dup end/fMPH exch def fmSH}FmBD/fMPH fmCH def/fmcp{/FmPr2 exch
  85. cvlit def/FmPr1 exch cvlit def/FmPrn FmPr1 length FmPr2 length add array def
  86. FmPrn 0 FmPr1 putinterval FmPrn FmPr1 length FmPr2 putinterval FmPrn cvx}FmBD
  87. /fmEp{sub dup 0 lt{neg}if .001 le}FmBD/fmQC{2 copy 0 get exch 0 get fmEp{2 copy
  88. 1 get exch 1 get fmEp{2 copy 2 get exch 2 get fmEp{3 get exch 3 get fmEp}{pop
  89. pop F}ifelse}{pop pop F}ifelse}{pop pop F}ifelse}FmBD/fmQR{2 copy 4 get exch 0
  90. get fmEp{2 copy 5 get exch 1 get fmEp{6 get exch 2 get fmEp}{pop pop F}ifelse}{
  91. pop pop F}ifelse}FmBD/FmSC{/fMCM fmXD/fMJB fmXD/fMJG fmXD/fMJR fmXD/fMJK fmXD
  92. /fMJY fmXD/fMJM fmXD/fMJC fmXD fmCC}FmBD/FmSP{/fMCM fmXD fmCC}FmBD
  93. /FrameSetSepColors{FrameMacDict begin[exch 1 add 1 roll]/fMSC exch def end}FmBD
  94. /fmLC{fMSC{exch dup 3 -1 roll fmQC{pop T exit}if}forall dup T ne{pop F}if}FmBD
  95. /fmLR{fMSC{exch dup 3 -1 roll fmQR{pop T exit}if}forall dup T ne{pop F}if}FmBD
  96. /fmLM{fMSC{exch dup 3 -1 roll dup 7 get 3 -1 roll eq{exch pop T exit}{pop}
  97. ifelse}forall dup T ne{pop F}if}FmBD/fmCN{FrameNullDevice F fMCM fMN ne{/fMOP
  98. fmGG{/fMKO fmGG{pop T}if}if}if dup userdict exch/FrameNullDevice exch put{not
  99. fML1 not and{[/Separation(None)/DeviceGray{}]setcolorspace}if pop}{exch dup
  100. null ne{dup type dup/integertype eq exch/realtype eq or{RealSetgray}{setcolor}
  101. ifelse pop}{pop{1 RealSetgray}if}ifelse}ifelse}FmBD fML1{/fill{FrameNullDevice{
  102. newpath}{RealFill}ifelse}fmPU/eofill{FrameNullDevice{newpath}{RealEofill}ifelse
  103. }fmPU/stroke{FrameNullDevice{newpath}{RealStroke}ifelse}fmPU/imagemask{
  104. FrameNullDevice{FmG nulldevive RealImagemask FmR}{RealImagemask}ifelse}fmPU
  105. /show{FrameNullDevice{stringwidth rmoveto}{RealShow}ifelse}fmPU/fmNX{
  106. FrameMacDict begin load FrameNullDevice{FmG fMa2 currentmatrix end nulldevice
  107. setmatrix exec currentpoint FmR moveto}{end exec}ifelse}FmBD/ashow{/RealAshow
  108. fmNX}fmPU/widthshow{/RealWidthshow fmNX}fmPU/awidthshow{/RealAwidthshow fmNX}
  109. fmPU/kshow{/RealKshow fmNX}fmPU}if/image{FrameMacDict begin fMCM fMN ne fMCM
  110. fMK ne and{FmG/fMOP fmGG{nulldevice}{fMNg{{pop 0}}{{pop 1}}ifelse settransfer}
  111. ifelse end RealImage FmR}{end RealImage}ifelse}fmPU/fMGM T def/fMBM F def
  112. /setcustomcolor where{pop}{/findcmykcustomcolor{0 0 0 4 -1 roll 8 array astore}
  113. fmPU/findrgbcustomcolor{FrameMacDict begin 4 1 roll 3 copy/fmRY fmGG exec 8 4
  114. roll 4 -1 roll 8 array astore end}fmPU/findgraycustomcolor{0 0 0 exch 1 exch
  115. sub exch findcmykcustomcolor}fmPU/findhsbcustomcolor{4 1 roll gsave
  116. RealSethsbcolor currentrgbcolor grestore 4 -1 roll findrgbcustomcolor}fmPU
  117. /setcustomcolor{FrameMacDict begin dup type dup/integertype eq exch/realtype eq
  118. or not{1.0}if exch dup/fMCC exch fmSG/fMBM F def fMCM fMN eq{0 4 getinterval
  119. aload pop 4{4 index mul 4 1 roll}repeat fmSK pop}{dup{7 get}stopped{pop 4 get}
  120. if fmLM{exch pop 0 4 getinterval aload pop fMCM fMS eq{fMJK eq exch fMJY eq and
  121. exch fMJM eq and exch fMJC eq and{1 exch sub F}{pop 1 T}ifelse}{5{pop}repeat 1
  122. T}ifelse}{fMCM fMK eq{3 get F}{fMCM fMY eq{2 get F}{fMCM fMM eq{1 get F}{fMCM
  123. fMC eq{0 get F}{pop 0 T}ifelse}ifelse}ifelse}ifelse 3 1 roll mul 1 exch sub
  124. exch}ifelse/fMKO exch fmSG fmCN}ifelse end}fmPU/setoverprint{FrameMacDict begin
  125. /fMOP exch fmSG null fmCN end}fmPU/currentoverprint{FrameMacDict begin/fMOP
  126. fmGG end}fmPU}ifelse/fmCC{fMCM fMN eq{fMGM fML1 or not{[/Pattern[/DeviceCMYK]]
  127. setcolorspace fMCK 0 4 getinterval aload pop fMPt setcolor}{fMCK 3 get 1.0 ge{
  128. fMCG RealSetgray}{fMCl fMGM and{0 1 3{fMCK exch get 1 fMCG sub mul}for fmSK}{4
  129. 1 6{fMCK exch get fMGM{1 exch sub 1 fMCG sub mul 1 exch sub}{1.0 lt{fMCG}{1}
  130. ifelse}ifelse}for RealSetrgbcolor}ifelse}ifelse}ifelse null/fMKO F fmSG}{fMBM{
  131. fMCG F}{fMCK 0 4 getinterval aload fmLC{fMCM fMS eq{fMJK eq exch fMJY eq and
  132. exch fMJM eq and exch fMJC eq and{fMCG F}{1 T}ifelse}{pop pop pop pop 1 T}
  133. ifelse}{fMCM fMK eq{fMCG 1.0 exch sub mul 1.0 exch sub 4 1 roll pop pop pop F}{
  134. fMCM fMY eq{pop fMCG 1.0 exch sub mul 1.0 exch sub 3 1 roll pop pop F}{fMCM fMM
  135. eq{pop pop fMCG 1.0 exch sub mul 1.0 exch sub exch pop F}{fMCM fMC eq{pop pop
  136. pop fMCG 1.0 exch sub mul 1.0 exch sub F}{pop pop pop pop 1 T}ifelse}ifelse}
  137. ifelse}ifelse}ifelse}ifelse/fMKO exch fmSG fMGM fML1 or not{[/Pattern[
  138. /DeviceGray]]setcolorspace fMPt}{fMGM not fML1 and{dup 1 lt{pop fMCG}if}if}
  139. ifelse}ifelse fmCN}FmBD/setgray{FrameMacDict begin fMCM fMN eq{F}{fMCM fMK eq{F
  140. }{fMCM fMS eq fMJR 0 eq and fMJG 0 eq and fMJB 0 eq and{F}{pop 1 T}ifelse}
  141. ifelse}ifelse/fMKO exch fmSG fmCN end}fmPU/setrgbcolor{FrameMacDict begin/fMBM
  142. F def fMCM fMN eq{RealSetrgbcolor}{3 copy[4 1 roll]fmLR{fMCM fMS eq{fMJB eq
  143. exch fMJG eq and exch fMJR eq and{0 F}{1 T}ifelse}{pop pop pop 1 T}ifelse}{
  144. /fmRY fmGG exec fMCM fMK eq{1.0 exch sub 4 1 roll pop pop pop F}{fMCM fMY eq{
  145. pop 1.0 exch sub 3 1 roll pop pop F}{fMCM fMM eq{pop pop 1.0 exch sub exch pop
  146. F}{fMCM fMC eq{pop pop pop 1.0 exch sub F}{pop pop pop pop 1 T}ifelse}ifelse}
  147. ifelse}ifelse}ifelse/fMKO exch fmSG fmCN}ifelse end}fmPU/sethsbcolor{
  148. FrameMacDict begin fMCM fMN eq{RealSethsbcolor}{RealSethsbcolor currentrgbcolor
  149. setrgbcolor}ifelse end}fmPU/setcmykcolor where{pop/fmSK/setcmykcolor load def}{
  150. /fmSK{4 1 roll 3{3 index add 0 fmax 1 fmin 1 exch sub 3 1 roll}repeat
  151. RealSetrgbcolor pop}FmBD}ifelse/currentcmykcolor where{pop}{/currentcmykcolor{
  152. FrameMacDict begin currentrgbcolor/fmRY fmGG exec end}fmPU}ifelse/setcmykcolor{
  153. FrameMacDict begin/fMBM F def fMCM fMN eq{fmSK}{4 copy[5 1 roll]fmLC{fMCM fMS
  154. eq{fMJK eq exch fMJY eq and exch fMJM eq and exch fMJC eq and{0 F}{1 T}ifelse}{
  155. pop pop pop pop 1 T}ifelse}{fMCM fMK eq{1.0 exch sub 4 1 roll pop pop pop F}{
  156. fMCM fMY eq{pop 1.0 exch sub 3 1 roll pop pop F}{fMCM fMM eq{pop pop 1.0 exch
  157. sub exch pop F}{fMCM fMC eq{pop pop pop 1.0 exch sub F}{pop pop pop pop 1 T}
  158. ifelse}ifelse}ifelse}ifelse}ifelse/fMKO exch fmSG fmCN}ifelse end}fmPU/fMFl[0
  159. .1 .3 .5 .7 .9 .97 1<0f1e3c78f0e1c387><0f87c3e1f0783c1e><cccccccccccccccc><ffff
  160. 0000ffff0000><8142241818244281><0102040810204080><8040201008040201>]def fML1{
  161. /patScreenDict 7 dict dup begin<0f1e3c78f0e1c387>[45{pop}{exch pop}.5 2 sqrt]
  162. FmBD<0f87c3e1f0783c1e>[135{pop}{exch pop}.5 2 sqrt]FmBD<cccccccccccccccc>[0{pop
  163. }dup .5 2]FmBD<ffff0000ffff0000>[90{pop}dup .5 2]FmBD<8142241818244281>[45{2
  164. copy lt{exch}if pop}dup .75 2 sqrt]FmBD<0102040810204080>[45{pop}{exch pop}.875
  165. 2 sqrt]FmBD<8040201008040201>[135{pop}{exch pop}.875 2 sqrt]FmBD end def}{/fMPP
  166. 5 dict dup begin<0f87c3e1f0783c1e>{3 setlinewidth -1 -1 moveto 9 9 lineto
  167. stroke 4 -4 moveto 12 4 lineto stroke -4 4 moveto 4 12 lineto stroke}FmBD<0f1e
  168. 3c78f0e1c387>{3 setlinewidth -1 9 moveto 9 -1 lineto stroke -4 4 moveto 4 -4
  169. lineto stroke 4 12 moveto 12 4 lineto stroke}FmBD<8142241818244281>{1
  170. setlinewidth -1 9 moveto 9 -1 lineto stroke -1 -1 moveto 9 9 lineto stroke}FmBD
  171. <8040201008040201>{1 setlinewidth -1 -1 moveto 9 9 lineto stroke 4 -4 moveto 12
  172. 4 lineto stroke -4 4 moveto 4 12 lineto stroke}FmBD<0102040810204080>{1
  173. setlinewidth -1 9 moveto 9 -1 lineto stroke -4 4 moveto 4 -4 lineto stroke 4 12
  174. moveto 12 4 lineto stroke}FmBD end def/fMPD 15 dict dup begin/PatternType 1 def
  175. /PaintType 2 def/TilingType 3 def/BBox[0 0 8 8]def/XStep 8 def/YStep 8 def
  176. /PaintProc{begin fMPP fmBS known{fMPP fmBS get exec}{8 8 T[1 0 0 -1 0 8]fmBS
  177. imagemask}ifelse end}FmBD end def}ifelse/fMdp 72 0 fMat defaultmatrix
  178. dtransform dup mul exch dup mul add sqrt def/freq fMdp dup 72 div round dup 0
  179. eq{pop 1}if 8 mul div def/sangle 1 0 fMat defaultmatrix dtransform exch atan
  180. def sangle fMa2 rotate fMat fMa2 concatmatrix dup 0 get/sflipx exch def 3 get
  181. /sflipy exch def fML1{/fmgF{fMa2 exch get mul 0 lt{-1}{1}ifelse}FmBD}if/fmPM
  182. fML1{{dup patScreenDict exch known{patScreenDict exch get aload pop freq mul 5
  183. 2 roll fMa2 currentmatrix 1 get 0 ne{3 -1 roll 90 add 3 1 roll sflipx 1 fmgF
  184. sflipy 2 fmgF mul}{sflipx 0 fmgF sflipy 3 fmgF neg mul}ifelse 0 lt{exch pop}{
  185. pop}ifelse fMNg{{neg}fmcp}if bind systemdict/setscreen get exec}{/fmBS fmXD
  186. /fM1B 0 def/fM0B 0 def freq 0 fMa2 currentmatrix 1 get 0 ne{90 add/pflipx
  187. sflipx 1 fmgF def/pflipy sflipy 2 fmgF def}{/pflipx sflipx 0 fmgF def/pflipy
  188. sflipy 3 fmgF neg def}ifelse{pflipy mul/yy fmXD pflipx mul/xx fmXD/xindex xx 1
  189. add 2 div 8 mul cvi def/yindex yy 1 add 2 div 8 mul cvi def fmBS yindex xindex
  190. 8 idiv add get 1 7 xindex 8 mod sub bitshift and 0 ne fMNg{not}if{/fM1B fM1B 1
  191. add def 1}{/fM0B fM0B 1 add def 0}ifelse}setscreen fM0B fM0B fM1B add div fMNg{
  192. 1.0 exch sub}if}ifelse/fMCG exch def/fMGM F def fmCC}}{/fMPC 8 dict def{dup
  193. fMPC exch known{fMPC exch get}{dup fMPD/fmBS 3 -1 roll put fMPD matrix
  194. makepattern dup fMPC 4 -1 roll 3 -1 roll put}ifelse/fMCG 0 def/fMPt exch def
  195. /fMGM F def fmCC}}ifelse FmBD/fmgr{fMGM not{/fMGM T def fML1{fMPH fmSH}if}if
  196. /fMCG exch def fmCC}FmBD/FmP{fMFl exch get dup type/stringtype eq{fmPM}{fmgr}
  197. ifelse}FmBD/FmK{fMCK astore pop/fMBM F def fmCC}FmBD/FmFB{0 0 0 1 0 0 0 fMCK
  198. astore pop/fMCG 0 def/fMBM T def fmCC}FmBD/fMOx matrix def fMOx currentmatrix
  199. pop/FmSO{/FmOs save def fmSM fMOx setmatrix}FmBD/FmIO{fmRM}FmBD/FmEO{FmOs
  200. restore}FmBD/fm3R[{.3 mul add 1}bind{.59 mul add 2}bind{.11 mul add round cvi
  201. fMs exch fMi exch put/fMi fMi 1 add def 0 0}bind]def/fm31{/fMi 0 def 0 exch 0
  202. exch{exch fm3R exch get exec}forall pop pop fMs}FmBD fML1{/Fmi{save userdict
  203. /fM7 3 -1 roll put/fM9 F def{{dup length 1 sub/fMGL fmXD/fMBC fmXD/fMNC fmXD
  204. /fMRC fmXD/fMGC fMGL 1 add array def/setcolortransfer where{pop
  205. currentcolortransfer/gryt fmXD/blut fmXD/grnt fmXD/redt fmXD 0 1 fMGL{/fMIx
  206. fmXD/fMUC 1 fMRC fMIx get sub def/fMUM 1 fMNC fMIx get sub def/fMUY 1 fMBC fMIx
  207. get sub def/fMk fMUC fMUM fmin fMUY fmin def/FmU fMk currentundercolorremoval
  208. exec def fMRC fMIx 1 0 fMUC FmU sub fmax sub redt exec put fMNC fMIx 1 0 fMUM
  209. FmU sub fmax sub grnt exec put fMBC fMIx 1 0 fMUY FmU sub fmax sub blut exec
  210. put fMGC fMIx 1 fMk currentblackgeneration exec sub gryt exec put}for{fMGL mul
  211. cvi fMRC exch get}{fMGL mul cvi fMNC exch get}{fMGL mul cvi fMBC exch get}{fMGL
  212. mul cvi fMGC exch get}setcolortransfer{pop 0}setundercolorremoval{}
  213. setblackgeneration/fM9 T def}{0 1 fMGL{fMGC exch dup dup fMRC exch get .3 mul
  214. exch dup fMNC exch get .59 mul exch fMBC exch get .11 mul add add put}for{fMGL
  215. mul cvi fMGC exch get}currenttransfer fmcp settransfer}ifelse}{dup length 1 sub
  216. /fMGL fmXD/fMGC fmXD{fMGL mul cvi fMGC exch get}currenttransfer fmcp
  217. settransfer}ifelse}{{{1 exch sub}currenttransfer fmcp settransfer}if}ifelse/fM5
  218. fmXD/fM8 fmXD/fM6 fmXD/fM3 fmXD/fM4 fmXD translate rotate scale{-1 1 scale}if
  219. /fM18 fM8 string def fM4 fM3 fM6[fM4 0 0 fM3 fM4 2 div fM3 2 div]{currentfile
  220. fM18 fM5{readstring}{readhexstring}ifelse pop}fM9{{fM18}{fM18}T 3 colorimage}{
  221. image}ifelse fM7 restore}FmBD}{/Fmi{save userdict/fM7 3 -1 roll put/fM9 F def{{
  222. dup length 1 sub/fMGL fmXD/fMBC fmXD/fMNC fmXD/fMRC fmXD[/Indexed/DeviceRGB
  223. fMGL{dup fMRC exch get exch dup fMNC exch get exch fMBC exch get}]setcolorspace
  224. }{dup length 1 sub/fMGL fmXD/fMGC fmXD[/Indexed/DeviceGray fMGL{fMGC exch get}]
  225. setcolorspace}ifelse}{1 4 index bitshift 1 sub/fMGL fmXD[/Indexed/DeviceGray
  226. fMGL 5 -1 roll{{fMGL div 1 exch sub}}{{fMGL div}}ifelse]setcolorspace}ifelse
  227. /fM5 fmXD/fM8 fmXD/fM6 fmXD/fM3 fmXD/fM4 fmXD translate rotate scale{-1 1 scale
  228. }if/fM18 fM8 string def 7 dict begin/ImageType 1 def/Width fM4 def/Height fM3
  229. def/ImageMatrix[fM4 0 0 fM3 fM4 2 div fM3 2 div]def/DataSource{currentfile fM18
  230. fM5{readstring}{readhexstring}ifelse pop}def/BitsPerComponent fM6 def/Decode[0
  231. fMGL]def currentdict end image fM7 restore}FmBD}ifelse/Fmci{save userdict/fM7 3
  232. -1 roll put/fM5 fmXD/fM8 fmXD/fM6 fmXD/fM3 fmXD/fM4 fmXD/fM18 fM8 string def
  233. /fMs fM18 0 fM18 length 3 idiv getinterval def translate rotate scale{-1 1
  234. scale}if fM4 fM3 fM6[fM4 0 0 fM3 fM4 2 div fM3 2 div]fMCl{{currentfile fM18 fM5
  235. {readstring}{readhexstring}ifelse pop}F 3 colorimage}{{currentfile fM18 fM5{
  236. readstring}{readhexstring}ifelse pop fm31}image}ifelse fM7 restore}FmBD fML1{
  237. /fmAn{transform round .5 sub exch round .5 sub exch itransform}FmBD/fmAc{
  238. transform round 1.5 sub exch round 1.5 sub exch itransform}FmBD/fmDn{dtransform
  239. round exch round exch idtransform}FmBD/fmLn{0 dtransform exch cvi 2 idiv 2 mul
  240. .1 add exch idtransform pop}FmBD/FmCv{fmDn 6 2 roll fmDn 6 2 roll fmDn 6 2 roll
  241. rcurveto}FmBD}{T setstrokeadjust/fmAn{}FmBD/fmAc{}FmBD/fmDn{}FmBD/fmLn{}FmBD
  242. /FmCv{rcurveto}FmBD}ifelse/FmM{fmAn moveto}FmBD/M{moveto}FmBD/N{0 rmoveto}FmBD
  243. /S{show}FmBD/A{0 exch ashow}FmBD/W{0 exch 32 exch widthshow}FmBD/X{0 exch 0 32
  244. 5 2 roll awidthshow}FmBD/fmQP{fML1 fMGM or not{FmG dup 1 RealSetgray exec FmR}
  245. if exec}FmBD/FmB{newpath fmAn moveto}FmBD/FmL{rlineto}FmBD/FmAL{fmAn lineto}
  246. FmBD/FmSo{fmLn setlinewidth setlinecap{stroke}fmQP 0 0 moveto}FmBD/FmS{fmLn
  247. setlinewidth closepath{stroke}fmQP 0 0 moveto}FmBD/FmDS{fmLn setlinewidth
  248. setlinecap{closepath}if setdash{stroke}fmQP[]0 setdash 0 0 moveto}FmBD/FmFl{FmG
  249. {eofill}fmQP FmR}FmBD/fmq{fmDn 4 2 roll fmAn newpath moveto 1 index 0 rlineto 0
  250. exch rlineto neg 0 rlineto closepath}FmBD/FmqP{fmq fmLn setlinewidth{stroke}
  251. fmQP 0 0 moveto}FmBD/FmqF{fmq FmG{fill}fmQP FmR}FmBD/FmKp{{currentpoint}stopped
  252. {F 5 1 roll}{T 7 3 roll}ifelse fmDn 4 2 roll fmAn newpath moveto 1 index 0
  253. rlineto 0 exch rlineto neg 0 rlineto closepath clip{moveto}{newpath}ifelse}FmBD
  254. /FmKb{{currentpoint}stopped}FmBD/FmKe{clip{newpath}{moveto}ifelse}FmBD/FmAF{FmG
  255. newpath fmAn translate not{0.0 0.0 moveto}if rotate fmDn scale 0.0 0.0 1.0 5 3
  256. roll arc closepath{fill}fmQP FmR}FmBD/FmAP{FmG{setdash}if fmLn setlinewidth
  257. setlinecap fmSM newpath 2 index 2 div add exch 3 index 2 div sub exch fmAn 2
  258. index 2 div sub exch 3 index 2 div add exch translate rotate scale 0.0 0.0 1.0
  259. 5 3 roll exch arcn{closepath}if fmRM{stroke}fmQP FmR}FmBD/FmST{FmG fmAn
  260. translate .3 fmLn setlinewidth 0 setlinecap 0 setlinejoin newpath 1 RealSetgray
  261. 0 0 10 0 360 arc fill 0 RealSetgray 0 0 10 0 360 arc stroke 36{1 0 moveto 0 0
  262. 10 -2.5 2.5 arc fill 10 rotate}repeat FmR}FmBD/FmSL{FmG fmAn translate .25 fmLn
  263. setlinewidth 0 setlinecap 0 setlinejoin newpath 1 RealSetgray 0 0 10 0 360 arc
  264. fill 0 RealSetgray 10 .5 fmLn neg .1{0 0 3 -1 roll 0 360 arc stroke}for FmR}
  265. FmBD/FrameEr where{pop}{userdict/FrameEr(\000)put}ifelse/fMSJ 100 string def
  266. /fmXC{end{countdictstack userdict begin/showpage{}def/FmDictStackDepth exch def
  267. count/FmStackDepth exch def}if/$brkpage where{pop}{userdict/fMSuccessfull F put
  268. currentfile cvx stopped pop fMSuccessfull not{systemdict/clear get exec
  269. userdict/FrameEr get 0 1 put FrameMacDict begin FmG systemdict/initmatrix get
  270. exec 0 systemdict/setgray get exec clippath{pathbbox}stopped{100 100 512 692}if
  271. exch pop add 2. div newpath moveto(Courier-BoldOblique)findfont 18 scalefont
  272. setfont FrameEr1 show( \()show $error begin errorname 20 string cvs show(, )
  273. show/command load 128 string cvs show end(\))show FrameEr2 print flush
  274. FrameMacDict/fMSJ get{dup currentfile exch{readline}stopped{pop exch pop T}if
  275. not{exit}if(EndFrame4Picture)eq{exit}if}loop grestore end}if FrameMacDict/fmIR
  276. get exec}ifelse}FmBD/FmEP{save userdict/fM7 3 -1 roll put setoverprint{fMN FmSP
  277. }if[/fMef/fMet/fMeh/fMew/fMey/fMex/fMei/fMej/fMek/fMel]{fmXD}forall fMex fMey
  278. translate fMet rotate fMew fMeh scale fMef{-1 1 scale}if 1 fMej fMel sub div 1
  279. fMek fMei sub div scale fMej fMel add 2 div neg fMei fMek add 2 div neg
  280. translate newpath fMel fMek moveto fMel fMei lineto fMej fMei lineto fMej fMek
  281. lineto closepath clip newpath T fmXC}FmBD/FmPI{F fmXC}FmBD/FmPc{save userdict
  282. /fM7 3 -1 roll put newpath 3 index neg 3 index neg translate 1 -1 scale 0.0 0.0
  283. moveto T fmXC}FmBD/fmIR{fM7 type/savetype eq{end/FmDictStackDepth where{pop
  284. countdictstack FmDictStackDepth sub dup 0 gt{{end}repeat}{pop}ifelse count
  285. FmStackDepth sub dup 0 gt{{pop}repeat}{pop}ifelse}if fM7 restore}if
  286. FrameMacDict begin}FmBD userdict/EndFrame4Picture{/$brkpage where{pop
  287. FrameMacDict/fmIR get exec}{userdict/fMSuccessfull true put stop}ifelse}bind
  288. put/alphaimage where{pop}{/alphaimage{1 ne{limitcheck}if not{limitcheck}if pop
  289. image}fmPU}ifelse/fmDE{systemdict/initgraphics get exec clippath{pathbbox}
  290. stopped{100 100 512 692}if exch pop add 2. div newpath moveto
  291. (Courier-BoldOblique)findfont 18 scalefont setfont currentpoint 2 copy FrameEr3
  292. show 20 sub 2 copy moveto FrameEr4 show 20 sub 2 copy moveto(\()show statusdict
  293. /jobname get show(\))show 20 sub moveto FrameEr5 show showpage}FmBD/cd where{
  294. dup/cd get/FmRealcd fmXD/cd{FrameMacDict begin FrameEr 0 get 0 ne{fmDE}if
  295. /FmRealcd load end exec}bind put}{/endp where{dup/endp get/fMRE fmXD/endp{
  296. FrameMacDict/fMRE get exec FrameEr 0 get 0 ne{FrameMacDict begin currentfile
  297. fMSJ{readline}stopped{pop exch pop true}if pop(%%Trailer)eq{fmDE}if end}if}bind
  298. put}if}ifelse systemdict/setpacking known{fMSP setpacking}if end
  299. %%EndProcSet
  300. %%FRMSetup
  301. FrameMacDict begin/FrameEr1(PostScript error)def/FrameEr2
  302. (A PostScript error occurred. FrameMaker is attempting recovery.)def/FrameEr3
  303. (FrameMaker has detected one or more)def/FrameEr4
  304. (PostScript errors in this document.)def/FrameEr5(Please check your output.)def
  305. end
  306. %%FRMEndSetup
  307.